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-- File: f akesegrun.mesa 

— Edited by: Sandman. April 19. 1978 3:53 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
InlineDefs: FROM "in! inedef s" , 
Mopcodes: FROM "mopcodes", 
SegmentDefs: FROM "segmentdef s", 
WartDefs: FROM "wartdefs", 
FakeSegDefs: FROM "fakesegdef s"; 

DEFINITIONS FROM AltoDefs, SegmentDefs, WartDefs. FakeSegDefs; 

FakeSegRun: PROGRAM IMPORTS SegmentDefs EXPORTS FakeSegDefs SHARES FakeSegDefs ■ 
BEGIN 

VMFileHandle: PUBLIC FileHandle *- NIL; 

FakeTooManySegments: PUBLIC SIGNAL « CODE; 

FakeVMNotFree: PUBLIC SIGNAL [base: PageNumber, pages: PageCount] » CODE; 

FakelnvalidSegmentSize: PUBLIC ERROR = CODE; 

Fakelnsuff icientVM: PUBLIC SIGNAL [needed: PageCount] » CODE; 

GetSegmentBootLink: PUBLIC PROCEDURE [s : FakeSegmentHandle] RETURNS [SegmentBootlndex] 
BEGIN FakeValidateSeg[s3: RETURN[LOOPHOLE[s .BootLink, SegmentBootlndex]] END; 

SetSegmentBootLink: PUBLIC PROCEDURE [s : FakeSegmentHandle, i: Bootlndex] - 
BEGIN FakeValidateSeg[s]; s. BootLink ♦- i END; 

FakeNewSegment: PUBLIC PROCEDURE [ 

file: FileHandle, base:PageNumber, pages:PageCount, access:AccessOptions] 
RETURNS [s:FakeSegmentHandle] « 
BEGIN 

IF file=DefaultFile THEN file ^ VMFileHandle; 
IF access=DefaultAccess THEN access *- GetFileAccess[f ile]; 
WHILE FreeSegmentList«NIL DO 
SIGNAL FakeTooManySegments; 
ENDLOOP; 
s ^ FreeSegmentList; 
FreeSegmentList ♦■ s.Link; 
BEGIN ENABLE UNWIND «> 
BEGIN 

S.Link ^ FreeSegmentList; 
FreeSegmentList <- s; 
END; 
IF file=VMFileHandle THEN 
BEGIN 
IF pages=Def aul tPages OR pages<»0 

THEN ERROR FakelnvalidSegmentSize; 
IF base^Defaul tBase THEN base <- Al locVM[pages ,-1] 
ELSE 
BEGIN 

WHILE '-PagesFree[base, pages] DO 
SIGNAL FakeVMNotFree[base, pages]; 
ENDLOOP; 
ReserveVM[base, pages] 
END; 
END 
ELSE 
BEGIN 

[] <- GetFileAccess[file]; -- instead of Val idateFile[f ile]; 
IF base=DefaultBase THEN base *- 1; 

IF pages=Def aultPages THEN pages «- GetEndOf File[f ile]. page-base+1; 
END; 
END; 
st *- FakeSegmentObject [ 

file, file. other. access, FALSE, FALSE, base, pages, O.NIL.O. NIL, 0,NIL, NIL]; 
IF file # VMFileHandle THEN f ile. segcount ^ f ile. segcount+1; 
IF file«VMFileHandle THEN 
BEGIN 

s.SwappedIn <- TRUE; 
s.VMaddress ♦- AddressFromPage[base]; 
s.LockCount ^ 1; 
END; 
RETURN 
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END; 

FakeDeleteSegment: PUBLIC PROCEDURE [s:FakeSegmentHancne] ■ 
BEGIN 

f: FileHandle ♦- s.File; 
FakeVal idateSegCs]; 
IF f-VMFneHandle THEN 

s.LockCount ^ s.LockCount-1; 
FakeSwapOut[s]; 
IF f # VMFileHandle AND (f.segcount ♦- f .segcount-1) ■ 

THEN ReleaseFileCf]; 
s.Type *- free; 

s.Link ^ FreeSegmentList; FreeSegmentList *- s; 
RETURN 
END; 

-- Swapping Segments (but faking it) 

FakeSwapError: PUBLIC ERROR [s:FakeSegmentHand1e] » CODE; 

FakeSwapIn: PUBLIC PROCEDURE [s: FakeSegmentHandle] ■ 
BEGIN 

vmpage: PageNumber; 
FakeValidateSeg[s]; 
IF -s.Swappedln THEN 

BEGIN 

IF s.Pages=0 THEN ERROR FakeSwapError[s] ; 

vmpage <- AnocVM[s .Pages, 1]; 

s.VMaddress ♦- AddressFromPage[vmpage]; 

s.Swappedln ^ TRUE; 

END; 
S.LockCount *■ s.LockCount+1 ; 
RETURN 
END; 

FakeUnlock: PUBLIC PROCEDURE [s: FakeSegmentHandle] - 
BEGIN 

FakeVal idateSeg[s]; 
IF s .LockCount«0 

THEN ERROR FakeSwapError[s] ; 
S.LockCount ♦- s.LockCount-1; 
RETURN 
END; 

FakeSwapOut: PUBLIC PROCEDURE [s : FakeSegmentHandle] » 
BEGIN OPEN InlineDefs; 
FakeVal idateSeg[s] ; 
IF -s.Swappedln THEN RETURN; 
IF s.Pages=0 THEN ERROR FakeSwapError[s]; 
IF S.LockCount > 

THEN ERROR FakeSwapError[s] ; 
ReleaseVM[PageFromAddress[s . VMad d res s],s. Pages]; 
s.Swappedln «- FALSE; s.VMaddress ♦- 0; 
RETURN 
END; 

-- VM Suboutines 

PageFree: INTEGER » 0; 

PageReserved: INTEGER « 1; 

PageState: TYPE » [PageFree. .PageReserved]; 

PagelD: TYPE «« WORD; 

PageMapHandle: TYPE « POINTER TO PageMap; 

PageMap: TYPE - ARRAY [0. . Al toDef s .MaxVMPage/AUoDef s .wordlength] OF WORD; 

VMmap: PageMap <- [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0. 0, 0, 0, 0. 0]; 

MakePagelD: PROCEDURE [PageNumber] RETURNS [PagelD] - 
MACHINE CODE BEGIN Mopcodes . zLI4; Mopcodes.zSHIFT END; 

GetPageState: PROCEDURE [pagerPageNumber] RETURNS [PageState] ■ 
BEGIN OPEN InlineDefs; 

ReadPageState: PROCEDURE [PageMapHandle, PagelD] RETURNS [PageState] • 
MACHINE CODE BEGIN Mopcodes . zRFS END; 
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RETURN[R0adPageState[QVMmap, MakePageID[page]]]; 
END; 

SetPageState: PROCEDURE [page:PageNumber, state:PageState] ■ 
BEGIN OPEN InlineDefs; 
WritePageState: PROCEDURE [PageState. PageMapHandle, PagelD] - 

MACHINE CODE BEGIN Mopcodes . zWFS END; 
WritePageState[state, QVMmap, MakePageID[page]]; 
RETURN; 
END; 

ffvmp, Ifvmp, minap, maxap: PageNumber; 

AllocVM: PROCEDURE [pages:PageCount . direction:INTEGER] RETURNS [PageNumber] 
BEGIN n: INTEGER; 
pg, end, base: PageNumber; 
IF pages -IN (0. .MaxVMPage+1] THEN 

ERROR FakelnvalidSegmentSize; 
DO -- repeat if insufficient VM 
IF direction>0 THEN 
BEGIN direction ^ 1; 

-- eliminate any prefix of allocated pages and update ffvmp 
FOR ffvmp INCREASING IN [f f vmp. . If vmp] DO 
IF GetPageState[ffvmp3=PageFree THEN EXIT; 
ENDLOOP; 
pg <- ffvmp; end ^ If vmp; 
END 
ELSE 

BEGIN direction ^ -1; 

-- eliminate any suffix of allocated pages and update Ifvmp 
FOR Ifvmp DECREASING IN [f f vmp . . 1 f vmp] DO 
IF GetPageState[lfvmp]=PageFree THEN EXIT; 
ENDLOOP; 
pg ♦- Ifvmp; end ^ ffvmp; 
END; 
n ♦- 0; -- count of contiguous free pages 
FOR pg <- pg, pg+direction 

UNTIL (IF direction>0 THEN pg>end ELSE pg<end) DO 
IF GetPageState[pg]#PageFree 

THEN n <- -- page in use; reset free count 
ELSE IF (n ^ n+1) « pages 
THEN BEGIN 

base <- IF direction>0 THEN pg-n+1 ELSE pg; 
ReserveVM[ base, pages]; 
RETURN[base] 
END; 
ENDLOOP; 
SIGNAL Fakelnsuffi ci en tVM[ pages]; 
ENDLOOP 
END; 

ReleaseVM: PROCEDURE [base:PageNumber, pages:PageCount] • 
BEGIN 

ffvmp <- MIN [ffvmp, base]; 
Ifvmp <- MAX [Ifvmp, base+pages-1]; 
FOR base IN [base . .base+pages) DO 
SetPageState[base.PageFree]; 
ENDLOOP; 
RETURN 
END; 

ReserveVM: PROCEDURE [base: PageNumber, pages :PageCount] ■ 
BEGIN 
FOR base IN [base. .base+pages) DO 

SetPageState[base,PageReserved]; 

ENDLOOP; 
RETURN 
END; 

SetVMBounds: PROCEDURE [fp, lp:PageNumber] « 
BEGIN 

minap <- ffvmp <- fp; 
maxap ♦- Ifvmp <- Ip; 
RETURN 
END; 
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GetVMBounds: PUBLIC PROCEDURE RETURNS [VMBounds] - 
BEGIN 
FOR ffvmp INCREASING IN [f f vmp. . Ifvmp] DO 

IF GetPageState[ffvmp]-PageFre0 THEN EXIT; 

ENDLOOP; 
FOR Ifvmp DECREASING IN [f f vmp. . If vmp] DO 

IF G9tPageState[1fvmp]-PageFree THEN EXIT; 

ENDLOOP; 
IF ~PagesFr8e[ffvmp,lfvmp-ffvmp+13 THEN 

SIGNAL FakeVMNotFree[f f vmp , 1 f vmp-f f vmp+1] ; 
RETURN[[ffvmp, Ifvmp]]; 
END; 

PagesFree: PROCEDURE [bas8:PageNumber, pages:PageCount] RETURNS [BOOLEAN] 
BEGIN 
FOR base IN [base. .base+pages) DO 

IF GetPageState[base]#PageFree THEN RETURN[FALSE]; 

ENDLOOP; 
RETURN[TRUE] 
END; 

-- kludges for peering into machine addresses 
PAGEDISP: TYPE » MACHINE DEPENDENT RECORD [ 

page: [0. .MaxVMPage], 

disp: [0. .PageSize)]; 

PageFromAddress: PROCEDURE [a:UNSPECIFIED] RETURNS [PageNumber] - 
BEGIN 

word: PAGEDISP ♦- a; 
RETURN[word.page] 
END; 

AddressFromPage: PROCEDURE [p:PageNumber] RETURNS [UNSPECIFIED] - 
BEGIN 

RETURN[PAGEDISP[p,0]] 
END; 

-- Segment Sub-Routines 

NumberOf Segments: INTEGER « 200; 
FreeSegmentList: FakeSegmentHandle; 
Segmentlndex: TYPE = [0 . .NumberOfSegments) ; 
SegArray: ARRAY Segmentlndex OF FakeSegmentObject; 

FakelnvalidSegment: PUBLIC ERROR [POINTER] « CODE; 

FakeValidateSeg: PUBLIC PROCEDURE [s: FakeSegmentHandle] - 
BEGIN OPEN InlineDefs; 
i, j: INTEGER; 
[i. j] <- DIVMOD [ 

s-6SegArray[FIRST[Segment Index] ].SIZE[FakeSegmentObject]]; 
IF i -IN Segmentlndex OR j#0 OR s.Type=free 

THEN ERROR Fakelnval idSegment[s] ; 
RETURN 
END; 

FakelnitSegMachinery: PUBLIC PROCEDURE [f irstpage, lastpage:PageNumber] - 
BEGIN i: Segmentlndex; 
SetVMBounds[f irstpage, last page]; 
FreeSegmentList ^ 0SegArray[FIRST[SegmentIndex]] ; 
FOR i IN Segmentlndex DO 

SegArray[i].Type <- free; 

SegArray[i].Link ^ @SegArray[i+l]; 

ENDLOOP; 
SegArray[LAST[SegmentIndex]].Link <- NIL; 
RETURN 
END; 

FakeEnumerateSegments: PUBLIC PROCEDURE [ 

proc:PROCEDURE[FakeSegmentHandle]RETURNS[BOOLEAN] ] 

RETURNS [FakeSegmentHandle] - 

BEGIN 

i: Segmentlndex; 

s: FakeSegmentHandle; 

FOR i IN Segmentlndex DO 
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IF (s <- 0SegArray[i]).Typ0 » free THEN 
IF proc[s] THEN RETURN [s]; 

ENDLOOP; 
RETURN[NIL] 
END; 

END... 



